home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
text
/
edit
/
envwww21.lha
/
envWWW21
/
Install
< prev
next >
Wrap
Text File
|
1996-11-22
|
7KB
|
287 lines
; $VER: 1.0 All rights reserved.
(delopts "oknodelete" "force" "askuser")
(complete 0)
(if (exists "GOLDED:" (NOREQ))
(
(set vernum (getversion "golded:golded"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))
(set version (+ (* 10 ver) rev))
(if (< version 44)
(
(message "\nSorry, GoldED 4.4.0 or better required")
(exit (quiet))
)
)
(message (cat "\n"
" \n"
"WWW Publishing Extensions \n"
" \n"
"©1996 Dietmar Eilert \n"
" All Rights Reserved. \n"
" \n"
" E-Mail: dietmar@tomate.tng.oche.de \n"
" \n"
"GoldED Release 4.4.0+ required. \n"
))
(copylib
(prompt "Install syntax parser ?")
(source "syntax/warpHTML.parser")
(dest "golded:syntax")
(confirm)
(help @copylib-help)
)
; install API clients
(copylib
(prompt "Install API client "gifinfo.api" ?")
(source "api/gifinfo.api")
(dest "golded:api")
(confirm)
(help @copylib-help)
)
(copylib
(prompt "Install API client "ISO8859.api" ?")
(source "api/ISO8859.api")
(dest "golded:api")
(confirm)
(help @copylib-help)
)
(copylib
(prompt "Install API client "w3color.api" ?")
(source "api/w3color.api")
(dest "golded:api")
(confirm)
(help @copylib-help)
)
; install registry editor (if not yet installed)
(if (not (exists "golded:tools"))
(makedir "golded:tools")
)
(if (not (exists "golded:tools/regedit"))
(makedir "golded:tools/regedit")
)
(copylib
(prompt "Install registry editor ?")
(source "bin/regedit" )
(dest "golded:tools/regedit")
(confirm)
(help @copylib-help)
)
; install basic files
(if (not (exists "golded:tools/www"))
(makedir "golded:tools/www")
)
(copyfiles
(source "www")
(dest "golded:tools/www")
(all)
)
(if (= @language "deutsch")
(set menu 1)
(set menu 0)
)
(set menu (askchoice
(prompt "\nHTML menu\n")
(choices
"English"
"Deutsch"
)
(default menu)
(help @askchoice-help)
))
(set browser (askchoice
(prompt "\nWhat browser do you use ?\n")
(choices
"None"
"AWeb 1.2 demo (or 100% compatible)"
"IBrowse 1.02 demo (or 100% compatible)"
"Voyager 1.0"
"Other"
)
(help (cat "\n"
" The browser preview function of this software \n"
" may not work with all browsers. It requires \n"
" that your browser supports a 'reload page' \n"
" ARexx command. List of compatible browsers: \n"
" \n"
" IBrowse 1.02 demo Supported \n"
" AWeb 1.2b demo Supported \n"
" AWeb-II 2.1 demo Not supported (no ARexx port)\n"
" Voyager 1.0 Not supported (no RELOAD cmd)\n"
))
))
(if (= browser 0)
(copyfiles
(source "support/preview_none.ged")
(dest "golded:tools/www/arexx")
(newname "preview.ged")
)
)
(if (= browser 1)
(copyfiles
(source "support/preview_aweb.ged")
(dest "golded:tools/www/arexx")
(newname "preview.ged")
)
)
(if (= browser 2)
(copyfiles
(source "support/preview_ibrowse.ged")
(dest "golded:tools/www/arexx")
(newname "preview.ged")
)
)
(if (= browser 3)
(copyfiles
(source "support/preview_voyager.ged")
(dest "golded:tools/www/arexx")
(newname "preview.ged")
)
)
(if (= browser 4)
(copyfiles
(source "support/preview_other.ged")
(dest "golded:tools/www/arexx")
(newname "preview.ged")
)
)
; install toolbar images
(if (exists "toolbar") (
(set hicolor
(askchoice
(prompt "\nSelect toolbar style:\n")
(choices
"4 colors"
"8+ colors"
)
(default 1)
(help (cat "\n"
" You can use both styles on all screens. The 4\n"
" color style has been optimized for 4-color \n"
" screens. The 8+ style has been optimized for \n"
" screens with eight or more colors. \n"
))
)
)
(if (not (exists "golded:toolbar"))
(makedir "golded:toolbar")
)
(if (not (exists "golded:toolbar/words"))
(makedir "golded:toolbar/words")
)
(copyfiles
(source "toolbar")
(dest "golded:toolbar")
(all)
)
(if (= hicolor 1)
(copyfiles
(source "toolbar16")
(dest "golded:toolbar")
(nogauge)
(all)
)
)
))
; update registry
(working "Updating registry...")
(if (= menu 1)
(run "golded:tools/regedit/regedit script=install_d.bat")
(run "golded:tools/regedit/regedit script=install_e.bat")
)
)
(message (cat "\n"
"Please install GoldED before attempting to\n"
"install this client. \n"
))
)
(exit (quiet))
(welcome)